home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS16.ADF / C / FileZap3 / console.c < prev    next >
C/C++ Source or Header  |  1989-01-27  |  3KB  |  141 lines
  1. #include <exec/types.h>
  2. #include <exec/io.h>
  3. #include <intuition/intuition.h>
  4. #include <devices/conunit.h>
  5.  
  6. #define EOF -1
  7. #define GRAPHICS_REV 29
  8. #define INTUITION_REV 29
  9.  
  10. void myexit(), mysetup(), myprintf(), queueread();
  11. int mygetc();
  12.  
  13. extern struct IntuitionBase *IntuitionBase;
  14. struct GfxBase *GfxBase;
  15.  
  16. static struct IOStdReq *conreader, conrequest;
  17. static struct MsgPort *conreadport;
  18. struct Window *mywindow;
  19. extern char WindowTitle[];
  20. static char conchar;
  21.  
  22. static struct NewWindow NewWindow = {
  23.    0,1,640,199,-1,-1,    /* left, top, width, height, detail, block */
  24.    CLOSEWINDOW,
  25.    WINDOWDEPTH | WINDOWDRAG | ACTIVATE,
  26.    NULL, NULL, WindowTitle,
  27.    NULL, NULL, 640, 199, 640, 199, WBENCHSCREEN };
  28.  
  29. /* initialize the window so we can read and write to it */
  30. void mysetup()
  31. {
  32.    if ((IntuitionBase = (struct IntuitionBase *)
  33.       OpenLibrary("intuition.library", INTUITION_REV)) == NULL)
  34.       exit(1);
  35.  
  36.    if ((GfxBase = (struct GfxBase *)
  37.       OpenLibrary("graphics.library", GRAPHICS_REV)) == NULL)
  38.       exit(2);
  39.  
  40.    if ((mywindow = (struct Window *)OpenWindow(&NewWindow)) == NULL)
  41.       exit(3);
  42.  
  43. /* create a port to receive messages about completed operations */
  44.    if ((conreadport = CreatePort("my.con.read", 0)) == NULL)
  45.       exit(4);
  46.  
  47. /* construct a request for that port */
  48.    if ((conreader = CreateStdIO(conreadport)) == NULL)
  49.       exit(5);
  50.  
  51.    conreader->io_Data = (APTR)mywindow;
  52.    conreader->io_Length = sizeof(*mywindow);
  53.  
  54.    if (OpenDevice("console.device", 0, conreader, 0) != 0)
  55.       myexit(6);
  56.  
  57. /* copy so we have a read request structure */
  58.    conrequest.io_Device = conreader->io_Device;
  59.    conrequest.io_Unit = conreader->io_Unit;
  60.  
  61.    queueread();
  62. }
  63.  
  64. void myputc(c)    /* write a single character to our window */
  65. char c;
  66. {
  67.    if (mywindow == NULL) mysetup();
  68.  
  69.    conrequest.io_Command = CMD_WRITE;
  70.    conrequest.io_Data = (APTR)&c;
  71.    conrequest.io_Length = 1;
  72.    DoIO(&conrequest);
  73. }
  74.  
  75. void queueread()
  76. {
  77.    conreader->io_Command = CMD_READ;
  78.    conreader->io_Data = &conchar;
  79.    conreader->io_Length = 1;
  80.    SendIO(conreader);
  81. }
  82.  
  83. int mygetc()
  84. {
  85.    struct IntuiMessage *GetMsg();
  86.    char c = 0;
  87.  
  88.    if (mywindow == NULL) mysetup();
  89.  
  90. /* if there hasn't been a response to the last read request, wait for it */
  91.    while((GetMsg(conreadport) == NULL)) WaitPort(conreadport);
  92. /* get what the response character was */
  93.    c = conchar;
  94. /* and queue up for another one */
  95.    queueread();
  96.    return((c == 0x1c) ? EOF : c);
  97. }
  98.  
  99. void myputs(str)    /* write a string to our window */
  100. char *str;
  101. {
  102.    if (mywindow == NULL) mysetup();
  103.  
  104.    conrequest.io_Command = CMD_WRITE;
  105.    conrequest.io_Data = (APTR)str;
  106.    conrequest.io_Length = strlen(str);
  107.    DoIO(&conrequest);
  108.    myputc('\n');    /* don't forget the newline for the string */
  109. }
  110.  
  111. /* write a formatted string to our window */
  112. void myprintf(str,v1,v2,v3,v4,v5,v6,v7,v8,v9)
  113. char *str;
  114. long v1,v2,v3,v4,v5,v6,v7,v8,v9;
  115. {
  116.    char buff[256];
  117.  
  118.    if (mywindow == NULL) mysetup();
  119.  
  120.    conrequest.io_Command = CMD_WRITE;
  121.    conrequest.io_Data = (APTR)buff;
  122.    conrequest.io_Length = sprintf(buff,str,v1,v2,v3,v4,v5,v6,v7,v8,v9);
  123.    DoIO(&conrequest);
  124. }
  125.  
  126. /* close up everything and leave the program */
  127. void myexit(code)
  128. int code;
  129. {
  130.    if (mywindow != NULL)
  131.       {
  132.       CloseDevice(conreader);
  133.       DeleteStdIO(conreader);
  134.       DeletePort(conreadport);
  135.       CloseWindow(mywindow);
  136.       CloseLibrary(GfxBase);
  137.       CloseLibrary(IntuitionBase);
  138.       }
  139.    _exit(code);
  140. }
  141.